A = (4.72, 0.62)
B = (8.68, 1.58)
C = (10.96, -3.14)
D = (3.88, -2.72)
q1, a, b, c, d = Polygon(A, B, C, D)
f = Segment(A, C)
g = Segment(B, D)
I = Intersect(g, f)
distanceAD = Distance(A, D)
TexteAD: Name[A] + (Name[D]) + " = " + distanceAD
distanceAB = Distance(A, B)
TexteAB: Name[A] + (Name[B]) + " = " + distanceAB
distanceBC = Distance(B, C)
TexteBC: Name[B] + (Name[C]) + " = " + distanceBC
distanceCD = Distance(C, D)
TexteCD: Name[C] + (Name[D]) + " = " + distanceCD
α = Angle(A, B, C)
β = Angle(B, C, D)
γ = Angle(C, D, A)
δ = Angle(D, A, B)
distanceIA = Distance(I, A)
Midpoint(I, A)
TexteIA: Name[I] + (Name[A]) + " = " + distanceIA
distanceIC = Distance(I, C)
Midpoint(I, C)
TexteIC: Name[I] + (Name[C]) + " = " + distanceIC
distanceIB = Distance(I, B)
Midpoint(I, B)
TexteIB: Name[I] + (Name[B]) + " = " + distanceIB
distanceID = Distance(I, D)
Midpoint(I, D)
TexteID: Name[I] + (Name[D]) + " = " + distanceID